home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_4 / mfs20.lha / MFS / MFS-install next >
Text File  |  1995-04-13  |  5KB  |  219 lines
  1. (set @default-dest "")
  2.  
  3. (if (< (getversion "LIBS:version.library") (* 38 65536))
  4.     (abort "MultiFileSystem requires Workbench 2.1 or higher")
  5. )
  6.  
  7. (set mfs_dest "SYS:Tools/Commodities")
  8. (if (= (exists "SYS:WBStartup/MFS") 1)
  9.     (set mfs_dest "SYS:WBStartup")
  10. )
  11.  
  12. (set mfs_dest
  13.     (askdir
  14.         (prompt "In which drawer should the MFS commodity be copied?")
  15.         (help @askdir-help)
  16.         (default mfs_dest)
  17.     )
  18. )
  19.  
  20. (copylib
  21.     (prompt "Copying MFS commodity")
  22.     (help @copylib-help)
  23.     (source "Tools/Commodities/MFS")
  24.     (dest mfs_dest)
  25.     (infos)
  26.     (confirm)
  27. )
  28.  
  29. (copylib
  30.     (prompt "Copying mfs-handler")
  31.     (help @copylib-help)
  32.     (source "l/mfs-handler")
  33.     (dest "L:")
  34.     (confirm)
  35. )
  36.  
  37. (copylib
  38.     (prompt "Copying MFSMount")
  39.     (help @copylib-help)
  40.     (source "c/MFSMount")
  41.     (dest "C:")
  42.     (confirm)
  43. )
  44.  
  45. (if (= (exists "DEVS:DOSDrivers/DF0") 0)
  46.     (makedir "DEVS:DOSDrivers/DF0"
  47.         (prompt "Creating drawer \"DEVS:DOSDrivers/DF0\"")
  48.         (help @makedir-help)
  49.         (infos)
  50.         (confirm)
  51.     )
  52. )
  53.  
  54. (if (= (exists "DEVS:DOSDrivers/DF0") 2)
  55.     (
  56.         (run "FileNote DEVS:DOSDrivers/DF0 Amiga")
  57.  
  58.         (if (= (exists "DEVS:DOSDrivers/PC0") 1)
  59.             (
  60.                 (rename "DEVS:DOSDrivers/PC0" "DEVS:DOSDrivers/DF0/PC0"
  61.                     (prompt "Moving PC0 to drawer \"DEVS:DOSDrivers/DF0\"")
  62.                     (help @rename-help)
  63.                     (confirm)
  64.                 )
  65.  
  66.                 (if (= (exists "DEVS:DOSDrivers/DF0/PC0") 1)
  67.                     (rename "DEVS:DOSDrivers/PC0.info" "DEVS:DOSDrivers/DF0/PC0.info")
  68.                 )
  69.             )
  70.         )
  71.  
  72.         (if (= (exists "DEVS:DOSDrivers/DF0/PC0") 1)
  73.             (run "FileNote DEVS:DOSDrivers/DF0/PC0 MS-DOS")
  74.             (message "\n\nPC0 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF0 yourself.")
  75.         )
  76.     )
  77. )
  78.  
  79. (if (getassign "DF1" "d")
  80.     (if (= (exists "DEVS:DOSDrivers/DF1") 0)
  81.         (makedir "DEVS:DOSDrivers/DF1"
  82.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF1\"")
  83.             (help @makedir-help)
  84.             (infos)
  85.             (confirm)
  86.         )
  87.     )
  88. )
  89.  
  90. (if (= (exists "DEVS:DOSDrivers/DF1") 2)
  91.     (
  92.         (run "FileNote DEVS:DOSDrivers/DF1 Amiga")
  93.  
  94.         (if (= (exists "DEVS:DOSDrivers/PC1") 1)
  95.             (
  96.                 (rename "DEVS:DOSDrivers/PC1" "DEVS:DOSDrivers/DF1/PC1"
  97.                     (prompt "Moving PC1 to drawer \"DEVS:DOSDrivers/DF1\"")
  98.                     (help @rename-help)
  99.                     (confirm)
  100.                 )
  101.  
  102.                 (if (= (exists "DEVS:DOSDrivers/DF1/PC1") 1)
  103.                     (rename "DEVS:DOSDrivers/PC1.info" "DEVS:DOSDrivers/DF1/PC1.info")
  104.                 )
  105.             )
  106.         )
  107.  
  108.         (if (= (exists "DEVS:DOSDrivers/DF1/PC1") 1)
  109.             (run "FileNote DEVS:DOSDrivers/DF1/PC1 MS-DOS")
  110.             (message "\n\nPC1 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF1 yourself.")
  111.         )
  112.     )
  113. )
  114.  
  115. (if (getassign "DF2" "d")
  116.     (if (= (exists "DEVS:DOSDrivers/DF2") 0)
  117.         (makedir "DEVS:DOSDrivers/DF2"
  118.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF2\"")
  119.             (help @makedir-help)
  120.             (infos)
  121.             (confirm)
  122.         )
  123.     )
  124. )
  125.  
  126. (if (= (exists "DEVS:DOSDrivers/DF2") 2)
  127.     (
  128.         (run "FileNote DEVS:DOSDrivers/DF2 Amiga")
  129.  
  130.         (if (= (exists "DEVS:DOSDrivers/PC2") 1)
  131.             (
  132.                 (rename "DEVS:DOSDrivers/PC2" "DEVS:DOSDrivers/DF2/PC2"
  133.                     (prompt "Moving PC2 to drawer \"DEVS:DOSDrivers/DF2\"")
  134.                     (help @rename-help)
  135.                     (confirm)
  136.                 )
  137.  
  138.                 (if (= (exists "DEVS:DOSDrivers/DF2/PC2") 1)
  139.                     (rename "DEVS:DOSDrivers/PC2.info" "DEVS:DOSDrivers/DF2/PC2.info")
  140.                 )
  141.             )
  142.         )
  143.  
  144.         (if (= (exists "DEVS:DOSDrivers/DF2/PC2") 1)
  145.             (run "FileNote DEVS:DOSDrivers/DF2/PC2 MS-DOS")
  146.             (message "\n\nPC2 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF2 yourself.")
  147.         )
  148.     )
  149. )
  150.  
  151. (if (getassign "DF3" "d")
  152.     (if (= (exists "DEVS:DOSDrivers/DF3") 0)
  153.         (makedir "DEVS:DOSDrivers/DF3"
  154.             (prompt "Creating drawer \"DEVS:DOSDrivers/DF3\"")
  155.             (help @makedir-help)
  156.             (infos)
  157.             (confirm)
  158.         )
  159.     )
  160. )
  161.  
  162. (if (= (exists "DEVS:DOSDrivers/DF3") 2)
  163.     (
  164.         (run "FileNote DEVS:DOSDrivers/DF3 Amiga")
  165.  
  166.         (if (= (exists "DEVS:DOSDrivers/PC3") 1)
  167.             (
  168.                 (rename "DEVS:DOSDrivers/PC3" "DEVS:DOSDrivers/DF3/PC3"
  169.                     (prompt "Moving PC3 to drawer \"DEVS:DOSDrivers/DF3\"")
  170.                     (help @rename-help)
  171.                     (confirm)
  172.                 )
  173.  
  174.                 (if (= (exists "DEVS:DOSDrivers/DF3/PC3") 1)
  175.                     (rename "DEVS:DOSDrivers/PC3.info" "DEVS:DOSDrivers/DF3/PC3.info")
  176.                 )
  177.             )
  178.         )
  179.  
  180.         (if (= (exists "DEVS:DOSDrivers/DF3/PC3") 1)
  181.             (run "FileNote DEVS:DOSDrivers/DF3/PC3 MS-DOS")
  182.             (message "\n\nPC3 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF3 yourself.")
  183.         )
  184.     )
  185. )
  186.  
  187. (startup "MultiFileSystem"
  188.     (prompt "Adding a line to S:user-startup")
  189.     (help @startup-help)
  190.     (command "C:MFSMount DEVS:DOSDrivers/~(#?.info)")
  191. )
  192.  
  193. (set doit
  194.     (askchoice
  195.         (prompt "Do you want to install the Format and DiskCopy replacements?")
  196.         (help @askchoice-help)
  197.         (choices "Yes" "No")
  198.         (default 0)
  199.     )
  200. )
  201.  
  202. (if (= doit 0)
  203.     (
  204.         (message "\n\nPlease insert the \"Amiga Workbench\" disk in DF0:")
  205.  
  206.         (run "c/mergex system/format.mergex DF0:System/Format SYS:System/Format"
  207.             (prompt "Patching Format")
  208.             (help @run-help)
  209.             (confirm)
  210.         )
  211.  
  212.         (run "c/mergex system/diskcopy.mergex DF0:System/DiskCopy SYS:System/DiskCopy"
  213.             (prompt "Patching DiskCopy")
  214.             (help @run-help)
  215.             (confirm)
  216.         )
  217.     )
  218. )
  219.